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CADEIAS DE CARACTERES 


Úteis para quem quer trabalhar com algo mais do 
que simples números, as cadeias de caracteres (ou 
cordões) são empregadas em quase todos os ti- 
pos de programas. Utilize os cordões para proces- 
samento 00 Palavras... iarsesa ca ana 241 





ASSEMBLER PARA O SPECTRUM 


Tradução de Assembly para código de máquina. 
Como calcular saltos e desvios. O uso de rótulos. 
Espaços reservados para dados e variáveis. Como 
colocar os códigos na memória usando comandos 
8 À AGR SEDES SRD io too 248 





UM PROFESSOR DE DATILOGRAFIA 


Aprenda datilografia com o computador e torne- 
se mais eficiente no processamento de textos e na 
digitação de programas. Saiba como utilizar as te- 
clas de apoio e melhore a velocidade e a precisão 
de sua datilografia. Um programa que resolve to- 
Das essas QUESTÕES ice semrr rasa 253 
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CARACTERES 





Empregadas em quase todos os tipos de 
programas, as cadeias de 

caracteres (ou cordões) são muito úteis 
para quem quer trabalhar com 

algo mais do que simples números. 


Um cordão (ou string, em inglês) é, 
como já vimos, um conjunto de carac- 
teres. Estes, por sua vez, podem ser le- 
tras, números, sinais de pontuação ou 
quaisquer outros simbolos disponiveis 
no teclado. 

Normalmente, um cordão contém 
uma ou mais informações úteis, ou mes- 
mo partes de informação. Por exemplo, 
o cordão “PEDRO SILVA 241067 8” 
engloba diversos dados sobre uma úni- 
ca pessoa: nome, sobrenome, data de 
nascimento e estado civil. Esses dados 
são considerados como uma mesma co- 
municação. A data de nascimento pode 
ser dividida em dia, mês e ano; assim, 
na verdade, existem no total seis partes 
distintas de informação. 

Em casos como o do exemplo acima, 
faz-se necessário fracionar o cordão pa- 
ra extrair as diferentes partes da comu- 
nicação. Em outros, ao contrário, po- 
de ser necessário unir dois ou mais cor- 
dões. Há casos, ainda, em que se torna 
imprescindível medir a extensão de um 
cordão (número total de caracteres) e 
calcular o valor de algumas de suas par- 
tes numéricas. Tudo isso é possível 
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quando se utilizam certas funções e de- 
clarações disponíveis no BASIC da 
maioria dos computadores. 
Conhecida como concatenação, E 
mais simples dessas operações consiste 
em unir cordões. Para efetuá-la, empre- 
ga-se o símbolo “+”. Assim, se A$ for 
igual a “TUDO” e B$ igual a “BEM”, 
então A$ + B$ será “TUDO BEM”. 
A concatenação junta os cordões sem 
acrescentar nada a eles. Assim, “439” + 
“241” é igual a “43924]” e não a 680. 


COMO COMPARAR CORDÕES 





Assim como é capaz de concatenai 
cordões, O computador pode compará- 
los para verificar se são iguais, como 
nesse simples jogo de adivinhação. 


Este programa funcionará no ZX-81 
se você separartodas as linhas de decla- 
rações múltiplas. 

10 LET G=1: GOTO INT (RND*6)* 
10+10 


20 LET B$="MACA”: GOTO 80 


30 LET B$="LARANJA”": GOTO BO 
40 LET B$="BANANA”: GOTO 80 
50 LET BS$="LIMAO": GOTO BO 


60 LET B$=" FRAMBOESA": GOTO 


70 LET BS$="ABACAXI”": GOTO BO 
BO CLS PRINT "EU SOU UMA FR 
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E COMPARE ECLASSIFIQUE 
CORDÕES ALFANUMÉRICOS 


e COMO FRACIONAR CORDÕES 


E] UTILIZE CORDÕES PARA 
PROCESSAMENTO DE PALAVRAS 


UTA. QUE FRUTA SOU EU?” 

90 INPUT AS 

100 IF A$=B$ THEN GOTO 160 
110 LET G=G+1 

120 PRINT "ERRADO" 

130 FOR J=1 TO 200 

140 NEXT J 

150 GoToO 90 

160 IF G=1 THEN PRINT "VOCE A 
CERTOU NA PRIMEIRA TENTATIVA”: 
STOP 

170 PRINT "VOCE ACERTOU APOS ” 
:G;" TENTATIVAS” 

180 STOP 


10 G=1:0N AND(6) GOTO 20,30,40, 

50,60,70 

20 BS$="MACA”:GOTO B0 

30 B$="LARANJA":GOTO 80 

40 BS="BANANA” :GOTO 80 

50 B$="LIMAO”:GOTO BO 

60 BS$="FRAMBOESA”":GOTO 80 

70 BS$=" ABACAXI” 

BO CLS:PRINT"EU SOU UMA FRUTA. 
QUE FRUTA SOQUEU?” 

90 INPUT AS 

100 IF AS=B$S THEN GOTO 160 

110 G6=6+1 

120 PRINT”ERRADO!" 

130 FOR J=1 TO 1000 

140 NEXT J 

150 GOTO 90 

160 IF G=1 THEN PRINT"VOCE ACER 

TOU EM UMA TENTATIVA" ELSE PRIN 


T"VOCÊE ACERTOU APOS" ;G;"TENTATI 
VAS” 
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5 R=BND(-TIME) 

10 G=1:0N INT(AND(1)*6)+1l GOTO 
20,30,40,50,60,70 

20 BS="MAÇA”: coro BO 

30 B5=" LARANJA” :GOTO BO 

40 B$="BANANA”:GOTO BO 

50 B$="LIMAO":GOTO BO 

60 B5="MARACUJA”:GOTO BO 

70 BS="ABACAXI":GOTO 80 
BO CLS: PRINT"Adivinhe: 
a sou eu?” 

90 INPUT AS 

100 IF AS=BS THEN 
110 G=6+1 

120 PRINT"Você errou!” 

130 FOR J= 1 TO 600 

140 NEXT 

150 GOTO 90 

160 IF G=1 THEN PRINT"Você acer 
tou na primeira!” 
cê tentou";G;“vezes até acertar 


o) La . 


é co] 


Copie o programa anterior sem a li- 
nha 5 e troque CLS por HOME. Modi- 
fique a linha 160 e adicione a 170 como 
se segue: 


que frut 


160 


160 IF G=1 THEN PRINT"Voce acer 
tou na primeira!” :END 
170 PRINT"Voce tentou 
es..." 


".0:” Vez 


Aqui, a linha 10 coloca o contador 
de palpites em 1 e “lança” em seguida 
um dado eletrônico, que serve para se- 
lecionar uma fruta, ao acaso. As opções 
são armazenadas nas linhas 20 a 70. 
Qualquer que seja a linha que o com- 
putador passe, ele armazena a fruta co- 
mo um cordão em B$ e vai para a linha 
80. Nesse ponto você tem que adivinhar 
qual fruta foi sorteada e digitar seu pal- 
pite, que será armazenado em A$ e com- 
parado com B$. Se estes forem iguais, 
o computador imprimirá: “Você acer- 
tou na primeira!””, ou “Você tentou 
(tantas) vezes até acertar...”. Se A$ não 
for igual a B$ o computador imprimi- 
ra: “Você errou”; nesse caso, uma no- 
va tentativa deve ser feita. 

Mesmo que você adivinhe o nome da 
fruta, a condição AS = B$ não será sa- 
tisfeita se você escrevê-lo de modo in- 
correto. Para que o computador consi- 
dere dois cordões iguais, eles devem ser 
graficamente idênticos — isto é, letras, 
espaços, sinais de pontuação e números 
devem ser iguais. 

Uma das funções dessa técnica é ve- 
rificar entradas: 


ELSE PRINT"Vo 


IF A$= "SIM" THEN PRINT 


TEM CERTEZA?" 

A condição não será satisfeita se a pa- 
lavra “sim” for digitada com letras mi- 
núsculas. 





ORDENAÇÃO DE CORDÕES 


As cadeias de caracteres também po- 
dem ser comparadas utilizando-se os si- 
nais de desigualdade < e > em linhas 
como essa: 


IF AS<BS THEN PRINT 
E ":AS 


"O PRIMEIRO 


Aqui, a condição A$< B$ pergunta 
se o cordão em A$ vem antes do cordão 
em B$, quando eles são colocados em 
ordem alfabética. Mas tenha cuidado: 
o computador coloca cordões em ordem 
alfabética, examinando o código ASCII 
de cada uma das letras ou caracteres que 
compõem o cordão; por exemplo, a le- 
tra A no código ASCII equivale a 65 e 
Z, a 90. O problema é que as letras mi- 
núsculas também possuem códigos AS- 
Cll;0a é97 eo z, 122. Assim, todos 
os cordões que começarem com letras 
maiúsculas serão colocados em primei- 
ro lugar. 

Para complicar ainda mais, sinais de 
pontuação, espaços e outros signos tam- 
bém possuem códigos ASCII; dessa for- 
ma é difícil prever em que ordem ficará 
um cordão constituido por diversos 
signos. 

Com o devido cuidado, os operado- 
res de maior (>) e menor (<), ainda po- 
dem ser utilizados para organizar cor- 
dões em ordem alfabética. Uma rotina 
de ordenação alfabética, que aplica a 
chamada técnica de ordenação por bo- 
lhas, será explicada mais adiante numa 
lição sobre estruturação de programas. 


COMO FRACIONAR CORDÕES 


É possível também separar 
um caractere ou uma sequên- 
cia de caracteres de um cor- 
dão. Nos computadores 
TRS, MSX e Apple II is- 
so é feito utilizando-se 
funções LEFTS, RIGHTS 
e MIDS. Já o Spectrum 
aplica uma técnica dife- 
rente. 

A função LEFTS$ (AS, 
número) toma caracteres a À 
partir do primeiro à esquer- 


"VOCÊ 


da no cordão A$ e fornece tantos carac- 
teres quantos forem especificados no 
número entre parênteses. Se A$ for “SR 
MARIO SILVA” e você especificar dois 
caracteres — LEFTS$ (A$,2) —, o resul- 
tado será “SR”. 

De igual modo, o comando RIGHTS 
conta a partir da outra ponta do cordão 
— ou seja, de seu final à direita. Assim, 
RIGHTS (A$,5) produzirá “SILVA”, 

Com o MIDS$ você pode especificar 
dois parâmetros: a posição inicial no 
cordão, e o número de caracteres a se- 
rem extraidos. Por exemplo, MIDS 
(A$,4,5) começará no quarto caractere 
M e pegará cinco caracteres, produzin- 
do “MARIO”. Se for especificado so- 
mente um numero, tal como em 
MID$(A$,4), a função retornará todos 
os caracteres daquela posição, até o fi- 
nal do cordão. 

O método empregado pelos micros 
da linha Sinclair, tais como o ZX-81 e 
o ZX Spectrum, é mais simples e dire- 
to. Nesses computadores, existe apenas 
uma função para manipulação de cor- 
dões: o comando TO, Por exemplo, AS 
(número TO número). A$ identifica o 
cordão a ser fracionado e os dois pará- 
metros correspondentes ao início e ao 
fim do sub-cordão a ser extraído. 

Usando o mesmo cordão do exemplo 
anterior, A$ = “SR MARIO SILVA”, 
AS(1I TO 2) dá a você “SR”, AS(4 TO 
8) fornece “MARIO” e AS(I0 TO 14) 
produz “SILVA”. Não é necessário es- 
pecificar os números na função acima. 
Se for omitido o primeiro, o sub-cordão 
a ser extraído se iniciará no primeiro ca- 
ractere. Se o segundo for omitido, a fun- 
ção extrairá até o final do cordão. 

Eis aqui um programa que utiliza to- 
das as funções explicadas acima. E um 
jogo de palavras para duas pessoas. 
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Uma delas entra uma expressão cujas le- 
tras serão embaralhadas e impressas pe- 
lo computador como um anagrama pa- 
ra o segundo jogador resolver. 


10 CLS 

20 PRINT €75,"ANAGRAMA" 

30 PRINT €161,"DIGITE A PALAVRA 
A SER EMBARA LHADA” 

40 AS=INKEYS:IF AS="" THEN 40 
43 IF AS=CHR$S(13) THEN 55 

46 IF AS<”" ”" THEN 40 

49 WS=W5S+AS:GOTO 40 

55 WORDS=WS 

70 CLS 

80 FOR N=LEN(WS)TO 1 STEP -1 
90 M=RND(N) 

100 AS=AS+MIDS (WS,M,1) 


110 WS=LEFTS (WS,M-1)+MIDS (WS, M+ 
1) 

120 NEXT N 

130 PRINT €65,"0 ANAGRAMA E "AS 
140 PRINT €129,"QUE PALAVRA VOC 


E ACHA QUE E?" 

160 INPUT GUESSS 

170 G=G+1 

180 IF GUESSS<>WORDS THEN PRINT 
" ERRADO, TENTE OUTRA VEZ" :GOTO 
160 

190 PRINT:PRINT”" MUITO BEM !” 
200 IF G=1l THEN PRINT” VOCÊ USO 

U 1 TENTATIVA" ELSE PRINT'VOCÊ 

USOU” ;G;" TENTATIVAS” 

210 PRINT 6480," QUER JOGAR DE N 


OVO (5/N)?7” 
220 AS=INKEYS:IF AS<>"S”" AND AS 
<>"N” THEN 220 
230 IF AS$="S" THEN RUN 
240 END 
10 CLS LET a$="": LET q=0 
20 PRINT '” ANAGRAMA” 
30 PRINT ''"DIGITE A PALAVRA 


A SER EMBARALHADA” 
40 POKE 23609,20: 
8: POKE 23624,63 
50 INPUT w$ 

55 LET s$-ws5 

60 POKE 23624,56 
70 CLS 

80 FOR n=LEN w$ TO 1 STEP -1 
90 LET m=INT (RND*n)+1 


POKE 23658, 


100 LET ag=aS+wS (m) 

110 LET w$=wS( TO m-1)+wS (m+1 
TO ) 

120 NEXT n 

130 PRINT '"O ANAGRAMA E “;as 
140 PRINT '"QUE PALAVRA VOCE A 
CHA QUE E?” 

160 INPUT LINE 95 

170 LET g=9+1 

180 IF gS$<>sS THEN PRINT “ERR 
ADO, TENTE OUTRA VEZ”: GOTO 160 


URisiT! | JamitiviPisit INGENCVZ ISS 


190 PRINT '"MUITO BEM!” 
195 IF qg=1l THEN PRINT "VOCE P 
RECISOU DE UMA TENTATIVA!”: 





GoTo 210 

200 PRINT "VOCE PRECISOU DE *; 
g;" TENTATIVAS” 

210 PRINT '"QUER JOGAR OUTRA V 
EZ(S/N)?" 

220 LET aS=INKEYS: IF a$<2>2"8” 
AND aS<>"N" THEN GOTO 220 

230 IF aS="S”" THEN RUN 

10 HOME 

20 HTAB 5: VTAB 2: PRINT "PROG 
RAMA DE ANAGRAMAS” 

30 VTAB 5: PRINT "DIGITE UMA P 


ALAVRA PARA SER MISTURADA: ” 
50 INPUT W5 
55 WOS = WS 


70 HOME 

BO FOR N = LEN (WS) TO 1 STEP 
e 

90 M = INT ( AND (1) * (N - 4) 

44 

100 AS$ = AS + MIDS (W5,M,1) 

105 IF M = 1 THENWS = MIDS( 

WS$.M + 1): GOTO 120 

110 W$ = LEFTS (WS.M — 1) + M 

IDS (W$.M + 1) 

120 NEXT 

130 HTAB 4: VTAB 12: PRINT "O 

ANAGRAMA E: ";AS 

140 PRINT HTAB 4: PRINT "QUE 


PALAVRA E ESTA "; 


160 INPUT GUESSS 

170 G = 6 +1 

180 IF GUESSS < > WOS THEN P 
RINT : PRINT "ERRADO! TENTE NOV 
AMENTE.": GOTO 160 

190 PRINT PRINT "MUITO BEM!” 
200 IF G = 1 THEN PRINT “VOCE 
ACERTOU NA PRIMEIRA!": GOTO 21 
Q 

205 PRINT "VOCÊ TENTOU ",6;" UV 
EZLEB.” 

210 PRINT PRINT PRINT "VOC 
E JOGA OUTRA VEZ? "; 

220 GET AS: IF AS < > "5º AND 
AS < > "Nº THEN 220 

230 IF AS = "S”º THEN RUN 

240 END 


10 CLS:R=RND(-TIME) 

20 LOCATE 5,2: PRINT” 
PROGRAMA DE ANAGRAMAS " 
30 LOCATE 1,5:PRINT” 
Digite uma palavra para | 
ser misturada:” 
50 INPUT WS 

55 WOS=W5 


70 CLS À | 


B0 FOR N=LEN(W$)TO1l STEP-1 


90 M=INT(ARND(1)*(N-1))+1 

100 AS=AS+MIDS (WS,M,1) 

110 WS=LEFTS (WS,M-1) +MIDS (W5S,M+ 
1) 
120 
130 

a é: 
140 
ra é esta? 
160 INPUT GUESES 

170 G=G+1 

180 IF GUESSS<>WOS THEN PRINT ” 

Errado! Tente novamente.” :GOTO 
160 

190 PRINT:PRINT"Muito bem!” 

200 IF G=1 THENPRINT"Você acert 

ou na primeira!" ELSE PRINT"Voc 

ê tentou”;G;"vezes.”" 

210 PRINT: PRINT: PRINT"VOCÊ Joga 
outra vez? (5/N)" 

220 AS=INKEYS:IF AS<>"S” AND AS 

<>"N” THEN 220 
230 IF AS= "5" 
240 END 


NEXT 

LOCATE 4,12:PRINT"O anagram 
"“;AS 

LOCATE 4,14:PRINT"Que palav 


THEN RUN 


Quando rodar esse jogo, você verá 
que a palavra digitada em primeiro lu- 
gar não aparecerá na tela. Esse oculta- 
mento tem por objetivo evitar que o seu 
adversário veja qual é a palavra. Cada 
computador utiliza um método diferente 
para fazer isso. Os micros da linha Spec- 
trum imprimem a palavra na mesma cor 
do plano de fundo, de modo a torná-la 
invisível. 

O TRS-Color entra a palavra utili- 
zando INKEYS$, que apanha um carac- 
tere por vez no teclado, sem imprimi-los 
na tela. O MSX e o Apple II simples- 
mente apagam a tela depois da digita- 
ção da palavra. 

A rotina para embaralhar as letras es- 
tá nas linhas 80 a 120. O que acontece 
é que os caracteres são apanhados alea- 
toriamente na palavra e acrescentados 































(um de cada vez) a A$ que, gradualmen- 
te, monta O anagrama. 

A linha 90 escolhe um número alea- 
tório M, entre 1 e a extensão da pala- 
vra. A linha 100 pega a M-ésima letra 
e a acrescenta a A$. A linha 110 remo- 
ve esse caractere da expressão original, 
tomando a parte esquerda da palavra até 
a posição M (exclusive) e acrescentan- 
do o que vier após M. Agora, a expres- 
são terá um caractere a menos, mas da 
próxima vez, ao fechar o laço, a variá- 
vel N também terá seu valor reduzido de 
um: assim, O número aleatório M será 
novamente limitado pela extensão da 
palavra. 

Quando todos os caracteres tiverem 
sido extraídos, o anagrama será impres- 
so na tela e o seu adversário terá que adi- 
vinhar qual a palavra original. Quando 
ele acertar, o computador informará so- 
bre o número de tentativas feitas duran- 
te O Jogo e oferecerá uma nova partida. 

E bastante fácil alterar esse progra- 
ma, de modo a fazer com que as pala- 
vras sejam lidas a partir de uma lista de 
dados em linhas DATA, em vez de 
entrá-las separadamente a todo momen- 
to. Você pode igualmente elaborar um 
sistema de contagem de pontos, atri- 
buindo, por exemplo, dez pontos para 
uma adivinhação correta feita na pri- 
meira tentativa, nove para uma adivi- 
nhação correta após duas tentativas e as- 
sim por diante. 

Uma outra utilização desse método 
de fracionamento é a manipulação de 
datas. Estas formam um cordão, mes- 
mo quando são digitadas em forma nu- 
mérica — como, por exemplo, 
27/03/51, que significa 27 de março de 
1951. É bem verdade que você não po- 
de manipular uma data expressa desse 
modo pelas leis normais da matemaáti- 
ca. Mas pode trabalhar com diferentes 
partes de uma data utilizando arit- 
mética. 

Dessa maneira, é possível, por exem- 
plo, calcular quantos anos uma pessoa 
tem em um determinado dia, desde que 
se conheça a data de seu nascimento. Da 
mesma forma, pode-se calcular quantos 
dias se passaram entre duas datas deter- 
minadas. 

Os comandos LEFTS$S, RIGHTS e 
MIDS — ou os métodos equivalentes 
usados pelos micros da linha Sinclair — 
podem ser usados facilmente para sepa- 
rar o dia, o mês e O ano de uma data. 
Caso seja empregada a função VAL (ex- 
plicada mais adiante), os cordões con- 
tendo números poderão ser convertidos 


para números, que podem ser manipu- 
lados por meio de operações aritméticas 
tais como divisão, soma, subtração, etc. 





O TAMANHO DE UM CORDÃO 


As vezes é útil conhecer o compri- 
mento de um cordão, Se, por exemplo, 
você tiver um espaço limitado de memoó- 
ria, reservado para a informação digi- 
tada no teclado, ou se dispuser de uma 
área restrita na tela para exibi-la, pode 
ser conveniente verificar a extensão da 
entrada antes de continuar com o 
programa. 

O comando LEN(AS$) fornece o nú- 
mero de caracteres de um cordão AS. E 
uma função numérica e pode ser mani- 
pulada de acordo com as leis da álgebra. 
Por exemplo, se A$ = ''SR JOAO SIL.- 
VA”, LEN (A$)= 13. Mas, se o progra- 
ma exigir que O usuário entre um nome, 
e só houver espaço suficiente na tela pa- 
ra exibir onze letras, o trecho seguinte 
poderá ser utilizado para informar ao 
usuário que ele deve limitar a extensão 
do nome a ser entrado, eliminando le- 
tras ou mesmo palavras: 


TTartit 


10 PRINT "DIGITE O NOME DO 
ASSUNTO” 

20 INPUT AS 

30 IF LEN(AS)>11 THEN PRINT 
"APENAS 11 CARACTERES 
DISPONIVEIS”;:GOTO 10 


O usuário deverá então reduzir sua 
entrada e teclar “JOAO SILVA”. 


Em outros casos, pode ser mais fácil 
truncar automaticamente uma entrada. 
Isso é feito com uma linha tal como a 
que se segue: 


TTraria 
IF LEN(AS)>15 THEN LET AS= 
LEFTS (AS, 15) 


IF LEN(AS)>15 ThEN 
LET AS=AS(TO 15) 


NÚMEROS 


Uma das aplicações 
mais importantes das 
funções de conversão de 
cordões para números 
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consiste em fazer programas “'à prova 





de idiotas' 
gitação equivocada dos dados. 
exemplo, na seção abaixo: 

100 PRINT "DIGITE UM NUMERO” 
110 INPUT A 


*. ou seja, que impeçam a di- 
Por 


«O computador espera que o usuário 
digite um número. Se este digitar um ca- 
ractere não numérico, a maioria dos 
computadores imprimirá uma mensa- 
gem de erro. Esta, porém, avisará ape- 
nas que alguma coisa está errada, sem di- 
zer onde está O erro. 
Porém, se for utilizado: 


110 INPUT AS 


O computador aceitará qualquer col- 
sa digitada pelo usuário sem emitir men- 
sagens de erro. O passo seguinte será 
converter o cordão em um número. Pa- 
ra isso, utiliza-se a função VAL( ). Na 
maioria dos computadores, se houver al- 
guma letra misturada com números no 
cordão de entrada, VAL retornará um 
valor igual a 0. 

Infelizmente, esse método não serve 
para os micros da linha Sinclair, nos 
quais o emprego do comando VAL com 
um cordão de caracteres que contenha 
letras produz uma mensagem de erro. 
Nesses micros, a função VAL só deve 
ser usada se o cordão for constituido 
apenas de números. Assim, 
VAL(''1984"') fornecerá 1984; mas 
VAL(''26/10/84"") fornecerá 0.03095..., 
porque os micros da linha Sinclair utili- 
zam o VAL para avaliar a expressão 26 
: 10: 84. Por esse motivo, os possuido- 
res do Sinclair não precisam ler o resto 
desta seção, dirigindo-se diretamente pa- 
ra o próximo “capítulo” do artigo (De 
numeros a cordões). 

Nos computadores TRS-80, TRS- 
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Color, Apple e MSX, a função VAL ex- 
trai a parte numérica do cordão. Assim, 
se A$ contiver apenas digitos numéricos, 
VAL(= A$) retornará o valor numéri- 
co correspondente, que poderá ser pos- 
teriormente utilizado no programa. Se, 
ao contrário, A$ não contiver números, 
VAI(AS) retornará o valor 0. 

Você poderá então escrever uma pe- 
quena sub-rotina que explique em deta- 
lhes ao usuário que ele cometeu um er- 
ro, oferecendo-lhe ao-mesmo tempo ou- 
tra oportunidade de entrar os dados sem 
interromper o programa ou desarrumar 
a tela do computador. 

Um ponto importante a ser observa- 
do em relação ao comando VAL é que 
ele só extrai números no inicio do cor- 
dão. Dessa maneira, VAL(''25 Julho””) 
é igual a 25, mas VAL(“JULHO 25") 
é equivalente a 0. 

A função VAL é útil também para 
ordenar números extraídos de um cor- 
dão. Se, por qualquer razão, você tiver 
os nomes e as notas de uma classe de 
alunos em um cordão como A$=*'32 
CARLOS", B$''45 MARCOS” e 
C$=**41 JOSE” e assim por diante, e 
quiser uma média dos resultados, o pri- 
meiro passo a ser dado será extrair as 
notas individuais utilizando o VAL, As- 
sim, VAL(= A$) fornece 32, VAL(=B$) 
extrai 45 e VAL (C8$) separa dl. 

Do mesmo modo, o comando VAL 
pode ser utilizado para ignorar as uni- 
dades de medida digitadas junto com os 
valores. O próximo programa mostra- 
rá a você a diferença: 


Trat 


100 LET AS="32K6” 

110 LET B$="110KG” 

120 PRINTCAS+BS= ",AS+BS5 

130 PRINT"VAL (AS) +VAL (BS) =" ; VAL 
(AS) +VAL (BS) 

140 END 


DE NÚMEROS A CORDÕES 





A função STR$ desempenha um pa- 
pel oposto ao do comando VAL: en- 
quanto este extrai números de cordões, 
aquela converte números em cordões. A 
vantagem dessa operação é que os cor- 
dões podem ser, por exemplo, fraciona- 
dos e concatenados. 

O comando STR$ possui, portanto, 
inúmeras aplicações. 

O programa a seguir transforma um 
número decimal em binário. Embora os 
computadores trabalhem diretamente 
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com a aritmética de números binários, 
a linguagem BASIC é capaz de manipu- 
lar apenas decimais ou, em alguns ca- 
sos, hexadecimais e octais. Assim, quan- 
do um número binário aparecer em um 
programa em BASIC, ele precisa ser tra- 
tado como se fosse um cordão: 


TTEeQgtitg 


10 PRINT"DECIMAL PARA BINARIO” 
20 PRINT"DIGITE NUMERO DECIMA 
L INTEIRO” 

30 INPUT D 

40 LET B$="" 

50 LET BS=STAS (D-INT(D/2)*2)+BS 
60 LET D=INT(D/2) 

70 IF D<>0 THEN GOTO 50 
BO PRINT"O NUMERO BINARIO E" ;BS 

Quando for entrado um número de- 
cimal positivo, a linha 40 igualará B$ a 
um cordão vazio ou nulo; este será en- 
tão progressivamente preenchido com 
digitos obtidos pelo processamento nas 
linhas 50 a 80. 

Na verdade, a linha 50 é a que mon- 
ta o número binário. Ela subtrai duas 
vezes o valor inteiro da metade do va- 
lor decimal, a partir do próprio núme- 
ro decimal. Essa é uma maneira de tes- 
tar se o número é impar ou par. Se for 
impar, O resultado da operação será 1; 
se for par, o resultado será O. Estes são, 
como você já sabe, os dois dígitos bi- 
nários, 

Esses digitos são convertidos em um 
cordão mediante o emprego da função 
STR$; em seguida, eles-são montados 
por intermédio da concatenação de ca- 
da novo digito com o resto do cordão. 
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STRINGS E INSTR 


Os computadores MSX, 
TRS-80 e TRS-Color 
contam com duas fun- 
ções adicionais de ma- 
nipulação de cordões 
alfanuméricos; 
STRINGS e 
INSTR (estas 
não existem nos 
micros da linha 
Apple, TK-2000 
e Sinclair). O 
STRINGS(N,AS) 
produz um cordão 
de N caracteres de- 





finidos por A$. N deve ser um número 
ou uma variável numérica, enquanto AS 
deve ser uma variável alfanumérica, um 
caractere ou um cordão de caracteres en- 
tre aspas. Por exemplo, PRINT 
STRINGS (6, “*) imprimirá ******. 

Nos microcomputadores das linhas 
TRS-80 e TRS-Color a função STRINGS 
utiliza somente o primeiro caractere do 
cordão especificado, ignorando o resto. 
Por exemplo, STRINGS(GUXBC”) impri- 
me XXX, apenas. 

Eis aqui dois programas (um para os 
modelos compatíveis com a linha TRS- 
Color e o outro para os da linha MSX) 
que utilizam STRINGS para imprimir 
uma borda decorativa na tela. Você po- 
de utilizá-los para abrilhantar a paágina- 
titulo de um jogo: 





LO CLSO 

20 AS=CHRS (15B) +STRINGS (30,CHRS 
(156) ) +CHRS(15/) 

30 B$=CHAS (154) +CHRS (174) +STRIN 
GS (28,CHAS(172))+CHRS(1/3)+CHRS 
(149) 

40 CS=CHRS (154) +CHAS (1/1) +STRIN 
GS (28, CHRS (163) )+CHRS (167) +CHRS 
(149) 

50 DS=CHAS (155) +STRINGS (30,CHRS 
(147) )+CHR$S (151) 

60 FS=CHRS(154)+CHRS (170) +STRIN 
G$(28," ")+CHRS(165)+CHRS (149) 
70 PRINT AS; 

80 PRINT BS; 

90 FOR K=1l TO 11 

100 PRINT FS; 

NEXT K 

PRINT CS; 

PRINT DS; 

PRINT 8237,"0LA !”; 

GOTO 150 






















| 
| | | 


10 CLS:COLOR 6,11 

20 AS=CHRS (219) +STRINGS (36,210) 
+CHRS (219) 

30 BS=CHAS (209) +CHRS (32) +STRING 
5 (34,192) +CHAS (32) +CHR$S (209) 

40 CS=CHAS (209) +CHRS (32) +STRING 
$(34,195) +CHRS (32) +CHRS (209) 

50 DS=CHAS (209) +CHRS (222) +STRIN 
GS (34,32)+CHAS (221) +CHRS (209) 
70 PRINTAS 

BO PRINTBS 

90 FORK=1TOILB 

100 PRINTDS 

110 NEXT 

PRINTCS 

PRINTAS 

LOCATE 16,10:PRINT"OLA”"; 
GOTO 150 


Os programas para o TRS-Color em- 
pregam diversos caracteres para impri- 
mir as bordas. Os blocos são impressos 
com esquema de duas cores — amare- 
lo/preto e azul/preto. Para se fazer uma 
borda simétrica, as cores são invertidas, 
de cima para baixo, e da esquerda para 
a direita. Cinco cordões são utilizados: 
AS e B$ definem a parte superior da 
borda, F$ os lados, e C$ e D$ a mar- 
gem inferior. A linha 150 impede que o 
sinal de prontidão OK perturbe o resul- 
tado final na tela. O programa para o 
MSX também utiliza caracteres gráficos 
para fazer as bordas. 


COMO PESQUISAR UM CORDÃO 





O comando INSTR examina o cor- 
dão, procurando pela primeira ocorrên- 
cia de um sub-cordão mais curto. As- 
sim, uma das aplicações mais comuns 
para o INSTR consiste em encontrar 
uma palavra dentro de uma sentença, ou 
uma letra dentro de uma palavra. 

Para usá-lo, especifica-se INSTR(AS, 
B$): isto significa que a função deve in- 
dicar a posição inicial do sub-cordão B$ 
no cordão AS$. Por exemplo, PRINT 
INSTR(CALO",''L**) exibirá o núme- 
ro 2. Se o computador não conseguir 
achar o cordão, ele retornará O: 


10 AS="ALO”" 
20 B$="W”" 
30 PRINT INSTR(AS,BS) 


Em alguns micros é possível ainda es- 
pecificar um número que define a posi- 
ção no cordão maior,a partir da qual a 
função INSTR funcionará. Assim, em 
INSTR(P,AS$,B$), essa posição é indi- 


cada por P. Essa forma de utilização é 
muito útil quando se deseja procurar 
ocorrências repetidas do mesmo sub- 
cordão no cordão principal. 

Suponhamos que se deseja encontrar 
todas as ocorrências da letra I na pala- 
vra INCONSTITUCIONAL. O primei- 
ro 1 está na posição 1. Para achar o se- 
gundo, entretanto, devemos usar O pa- 
râmetro P, de modo a começar a busca 
a partir de P=1+1 (ou seja, P igual a 
2); portanto, INSTR(P,“INCONSTI- 
TUCIONAL”"',“I'"'). Para localizar a 
terceira ocorrência do 1, o número P de- 
ve ser incrementado mais uma vez, e as- 
sim por diante, até que um resultado O 
seja retornado pela função. 

Esse comando serve ainda para veri- 
ficar uma entrada feita pelo teclado. Se 
for preciso escolher uma opção em um 
menu, digitando a sua letra inicial, as al- 
ternativas poderão ser: 


" (I)MPRIMIR O TEXTO” 
"(G)RAVAR O TEXTO” 
" (C) ARREGAR NOVO 


10 PRINT 
20 PRINT 
30 PRINT 
TEXTO” 
40 PRINT “ (E)JDITAR O TEXTO” 
50 PRINT "ESCOLHA UMA OPÇÃO” 
60 INPUT AS 


O modo mais fácil de se verificar a 
validade de uma letra digitada pelo 
usuário consiste em acrescentar a linha 
a seguir: 


70 IF INSTR("PSLE",AS)=0 THEN 
GoTo 50 


Isso elimina possíveis mensagens de 
erro, que “estragariam” a tela. 





PROCESSAMENTO DE PALAVRAS 


As funções alfanuméricas do BASIC 
têm um grande número de aplica- 
ções, especialmente no que se 
refere ao processamento 
de palavras. Um aspec- 
to comum a progra- 
mas desse tipo é a 
possibilidade de 
substituir uma 
determinada 
palavra por 
outra (isso 
pode ser ne- 
cessário, por 
exemplo, 
quando apa- 
recer um erro 
de ortografia 
em todas as 























ocorrências de uma palavra). O INSTR 
é usado para localizar essas ocorrências. 
Se a nova palavra tiver um comprimen- 
to diferente daquela a ser substituida, 
será necessário movimentar o resto do 
texto para criar espaço. 


10 LINEINPUT 


"DIGITE TEXTO: "4T 


S 

20 LINEINPUT "PALAVRA A SER TRO 
CADA? ":;WS5 
30 LINEINPUT 
W5 

40 P=1 

50 PO=INSTR(P,T5S,W5) 

60 IF P0=0 THEN GOTO 100 

70 TS$=LEFTS (TS, PO-1)+NWS+RIGHTS 
(TS, LEN(TS)-PO-LEN(WS)+1) 

80 P=PO+LEN(NWS) 


"NOVA PALAVRA? ";N 


90 GOTO 50 

100 PRINT TS 

110 GoTo 20 

10 INPUT "DIGITE UMA FRASE ";T 

o) 

15 TS = CHRS (32) + T$ + CHR$ 
(32) 

20 INPUT "PALAVRA A SER SUBSTI 

TUIDA ";W5 

30 INPUT "NOVA PALAVRA ";NWS 

sa Pe ú 

40 Ps P+a 

50 AS = MIDS (TS,P, LEN (W$S)) 

60 IF AS < > W5 THEN 90 

70 TS = LEFTS (TS,P —- 1) + NWS 
+ RIGHTS (TS, LEN (T$S) - P - 
LEN (WS) + 1) 

BO P = P + JLEN (NW$) - À 

90 IF P< LEN (T$) THEN 40 

100 PRINT T$ 

110 GoTo 20 








10 INPUT “DIGITE O TEXTO "; 
LINE tS: PRINT tS 
20 INPUT "PALAVRA A SER CORRI 
GIDA ”; LINE w$: LET w=LEN wS 
30 INPUT "NOVA PALAVRA "; 
LINE nS: LET n=LEN n$ 
35 LET p=0 
40 LET p=p+l 
50 IF p+w-1>LEN tS THEN GOTO 
100 
60 IF tS(p TO ptw-1)<>wS THEN 
Goto 40 
70 LET tS=tS( TO p-1)+nS+LS(P 
+wu TO ): GOTO 40 
100 PRINT tS 
110 GOTO 20 


io 


10 LINEINPUT"Digite uma frase: 
"Tg 

20 LINEINPUT"Palavra a ser subs 
tituída? ";WS 

30 LINEINPUT"Nova palavra? ";NW 


40 P=1 

50 PO=INSTR(P,TS,WS) 

60 IFPO=0THEN100 

70 TS=LEFTS(TS, PO-1) +NWS+RIGHTS 
(TS, LEN(TS) -PO-LEN (WS) +1) 

80 P=PO+LEN(NWS) 

90 coTO50 

100 PRINTTS 

110 GoTOo20 


Comece entrando sentenças bem sim- 
ples e tente o procedimento de substitui- 
ção de algumas letras ou palavras. 
Quando estas forem curtas como “ou”, 
“na”, etc., será necessário digitá-las com 
um espaço antes e outro depois; caso 
contrário, toda ocorrência de “ou”, 
“na”, etc., dentro de outras palavras, 
(por exemplo, “ouro” e “banana') 
também será modificada. 

O programa funciona assim: a linha 
40 define o P para começar o processo 
de pesquisa no início do texto. As linhas 
50 e 60 encontram a primeira ocorrên- 
cia da palavra ou da letra que se deseja 
substituir; em seguida, a linha 70 a subs- 
titui por uma nova palavra. Essa linha 
investiga o texto do início até a palavra 
a ser modificada, acrescenta a nova ex- 
pressão e concatena o restante do tex- 
to. O processo se repete até que todas 
as ocorrências da palavra tenham sido 
substituídas. A linha 100 imprime o re- 
sultado (os programas profissionais de 
processamento de palavras são, eviden- 
temente, mais complexos do que nosso 
exemplo). 
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Um programa que calcula a dimensão dos 





ASSEM 





B 
O SPECTRUM 


Montar um programa em linguagem 
de máquina calculando os códigos a 
mão pode ser bastante cansativo, mes- 
mo que se saiba de cor os códigos mne- 
mônicos e seus equivalentes hexadeci- 
mais e se esteja familiarizado com todos 
os modos de endereçamento. Com efei- 
to, além de estar sujeito a erro, o traba- 
lho de tradução e de transferência do 
programa para o computador é sempre 
tedioso. À solução está em entregar es- 
se trabalho ao próprio computador. 

Nesta lição apresentamos um progra- 
ma Assembler para os micros compati- 
veis com o Sinclair Spectrum (por exem- 
plo, o TK-90X) com um minimo de 48K 
de memória. Versões para outros com- 
putadores serão abordadas nas próxi- 
mas lições desta série. O TK-2000 não 
necessita de um programa desses, pois 
já vem com um mini-Assembler. O pro- 
grama apresentado aqui não funciona 
no Spectrum de 16K, nem nos modelos 
compativeis com o ZX-81. Ele está es- 
crito em BASIC, o que o torna bem 
mais lento que os Assemblers conven- 
cionais, elaborados em código de má- 
quina. O importante, porém, é que ele 
não só funciona, como é capaz de mon- 
tar programas Assembly, publicados 
por nós ou obtidos de outras fontes, Um 
programa longo levará um bom tempo 
para ser montado. 





O ASSEMBLER 


5000 DIM kS(110,4): DIM k(110): 
DIM m(110): LET h$="0123456789 
ABCDEF”: LET bS$="": LET 98="012 
3456789abcdef” 
5010 DIM tS(110,24): DIM r(100) 
- DIM z$(100,6): DIM z(100) 
5020 DIM b(9): LET b(1l)=1l: FOR 
1=2 TO 9: LET b(i)=b(i-l)+b(i-l 
): NEXT à 
5030 DIM r5S(8,4,4): FOR- j=1 TO 
4: FOR i=l TO 8: READ rsS(i,j): 
NEXT 1: NEXT 3 
SOS DATA CO SS A ITA 4 
E 4 O ra TES Esperem "a 
Cs DO s Era Or CET CIBF.Ta 
4*,"32","40","48","S6”,*"h1i”,"ix 
As DO Sr GR NE GDS [) 
5050 DIM sS(8B,2,4): DIM t(18): 
DIM u$(18,10): FOR 5=1 TO 2: FO 


LER PARA 





A 1=1 TO 8/3: READ 9g$S(i,j): NEX 
T à: NEXT 5: FOR jJj=1l TO 18: REA 
D t()) u$S(3): NEXT 5 

30600 DATA Phrce", O e rsonr," 
1, RI, "aC be" ,"dqea”,AIP,"E 
p”,235,"de",8,"af”",227," (sp)”,6 
07/42,707,60/58,"717,60/66,"2",23 
3" (h1)”,56809," (1x)”,65001," (1 
v)”,10,"º (bc)”,26," (de)”,60767," 
F",2." (Dbc)”",1B," (de)*,60751,"r* 
,/*49,"9p",60/43,"1",60759,"1" 
5070 DEF FN b(x,i)J=INT (x/b(i+1 
J)-INT (x/b(1+2))*2 

5080 DEF FN x(x,i)=x-b(1i+2)*FN 
b(x,1)+b(1+1) 

5090 DEF EN j5(x,1)=INT x-b(i+1) 


*INT (x/b(i1+1)) 

5100 DEF FN e(i$S,)35)=(1$=3S( TO 
LEN (15))) 

5110 FOR i=1l TO 110: READ kS(i) 


sk(1),;m(1): IF NOT EN e("*",kS( 
1)) THEN NEXT à 

5120 DATA "1d”,10,10,"1d”,26,10 
1" 190" ,60767,10,"10",60759,10,"1 
0" ,2,138,"197,18,138,"1d9",60751 
,138,"7190",60743,138,"1d",64,6," 
19" ,50,202,"19”",55,7/4,"1d9”,249, 
139,"1d”,34,195,"19”",42,67,"1d" 
/60779,197,"1d",60771,199,"1d”, 
97,165,"1d”",64,54 

5130 DATA "adc”,136,50,"adc”,60 
746,3,"add”,128,50,"add”,9,149, 
"and”,160,48,"or”,1/6,48,"xor”, 
168,48,"nop”,0,0,"sub”,144,48,” 
sbc”",152,50,"9sbc”,60738,3,"cp”, 
184,48,"1p”,130,45,"3p”",233,9," 
1p”,56809,9,")p”",65001,9,"5p”,l 
31,49,")r”,96,45,"3r”,88,41 
5140 DATA "call”,132,45,"call”, 
141,41,"ret”,201,0,"djnz”,74,40 
GEC” Lil, L7,"dec”,5,16,"1n€C”",s 
/17,"inc”,4,16,"push”,197,17,"p 
OP” 5.493,47." 01"7,243,0, el”,25L, 
0,"halt”,118,0,"ex",235,139,"ex 
",8,15,"ex",227,143,"exx",217,0 
5150 DATA "rst”,199,132,"rts”,l 
92,5,"bit”,52032,20,"defb”,-256 
40, Cerf BID, BEL" ,55,0 "Chi" 
,/4/,0,"cpd”,60841,0,"cpdr”,6085 
7,0,"cpi”,60833,0,"cpir”,60849, 
O,"daa”,39,0,"im",60742,8,"1im” 
60758,8,"im",60766,8B 

5160 DATA "in",607/36,130,"in”,l 
49,42,"ºindº,608B48,0,"indr”,6081 
0,0,"1ni”,60840,0,"1dd”,60840,0 
»"lddr”",60856,0,"1di”,60832,0," 
l1dir”,60848,0,"neg",60740,0,"ot 
dr” ,60859,0,"otir”,60851,0,"out 
*,60737,2,"out”,141,170,"outd”, 
60843,0,"outi”,60835,0 

5170 DATA "res",52096,20,"reti”" 
,/60749,0,"retn”,60741,0,"rl”,5] 





saltos e faz a tradução dos 

códigos mnemônicos Assembly para o 
sistema hexadecimal: o que 

mais poderíamos desejar na vida? 


984,64,"rla”,23,0,"rlc”",51968,1 
bo rica”,7,0,"r1L0”,60783,0," Er” 
/51992,64,"rra”",31,0,"“rrc”",5197 
6,16,"rrca”",15,0,"rrd”,60775,0 

5180 DATA "set”,52160,20,"sla”, 
52000,16,"sra”,5200B,16,"sr1l",5 
2024,16,"defw",-256,41 

5190 DATA "*",0,0: LET ii=i: LE 
T k(110)=ii 

5200 LET b=D: LET ba=-PEEK 23635 
+256*PEEK 23636+4: LET n=1 

5210 LET cc=l: IF PEEK ba<>234 

THEN LET ne=en-l: GOTO 5250 

5220 LET cc=cc+1l: LET ba-=-ba+l: 

IF PEEK ba=-13 THEN LET ba=-ba+5 
: LET n=n+1l: GOTO 5210 

5230 LET tS(n,cc)=CHAS PEEK ba 











| MIT “M CÓDIGODEMÁQUINA 11 

em a E E EE Es Eos 

s E TRADUÇÃO DEASSEMBLY PARA 
CODIGO DE MÁQUINA 
E | COMO CALCULAR SALTOS 

| E DESVIOS 
E O USO DE RÓTULOS 


| e 
1 5240 GOTO 5220 (1)="*" THEN LET s=p: LET i$=i 
" 5250 FOR g=1 TO 100: LET r(g)=g S(2 TO) 
7 -=1: NEXT q: LET £€h=100 5390 LET p=VAL iS+s: PRINT *"” 
5300 LET k0=0: LET k9=99: LET p org ";Pp;: GOTO 5320 
' 0=0: LET vv=0 5400 IF p=0 THEN PRINT "(falta 
5 5310 LET k=k0O: LET p=p0 org)”: LET p=50000 
5320 GOSUB 8000 5410 LET pS=0$+"!": FOR i=1+18% 
E 5330 GOSUB 7000: LET o$=i$: IF (oS<>" ld") TO 110: IF oS<=kS(i) 
oS(1l)="*”" THEN PRINT o$;: GOTO AND pS>kS(i) THEN corto 5500 
3 5320 5420 NEXT 1: PRINT og 
5340 IF oS="end”" THEN PRINT '” 5430 IF iS(1)="." THEN LET 1$= 
endereco final “;p-l 1S(2 TO ) 
5350 IF o$="end” THEN LET p0-p 5440 GOSUB 9000: LET gg=r (9) 
* GOTO 9999 5450 IF qgg<=100 THEN LET s=SGN 
E 5370 IF o$<>"org” THEN GcoTo 54 z(99): LET b=INT (ABS z(99)/65 
k 00 536): LET r=ABS z(g9g)-b*65536: 


5380 GOSUB 7000: LET s=0; IF iS$ LET q=-PEEK r+256*PEEK (r+1): PO 


E RESERVE ESPAÇO PARA DADOS 
* E VARIÁVEIS 

E COMOCOLOCAR OS CÓDIGOS 
NA MEMÓRIA USANDO POKE 

z 


— TESTEO PROGRAMA 





KE r,EN j(p*s+q,8): PRINT ” POK 
E ";r;" com ";FN j(p*s+q,8): IF 
b THEN POKE (r+1),FN 5((p*s+g 
)/256,8): PRINT ”" POKE ";r+1;" 
com ";EN jJ((p*s+q) /256,8) 

5460 IF gg<=-100 THEN LET gh=r( 
09): LET r(g9)=fh: LET £fh=q9: L 
ET gg-gh: GOTO 5450 
5470 IF 1$="" THEN 
100; GOTO 5330 

5480 PRINT ”* (Linha nao foi rec 
onhecida)” 

5490 GOTO 5420 

5500 LET z=0: LET r=0: 
PRINT ” "sos: 
5510 LET op=k(i): 

N GOTO 6090 


LET r(g)=-p+ 


LET e-Q: 


IF m(i)=0 THE Em 


| | 
| | | 
] dê cm 


5520 GOSUB 7000: LET aS=i1$S: PRI 
NT *" ";aB; 

5530 LET m=m(i): LET op=k(i): L 
ET b=FN b(m,0): LET b7=b+2*FN b 
(m,7)+1l: LET z=0: IF EN 3(m,3)sS 
2 THEN LET cS$=aS: GOTO 5720 
5540 FOR 3=l TO LEN aS: IF as(j3 
pj="," THEN GOTO 5580 

5550 NEXT j: IF o$="rst” OR o$S= 
"rts” THEN GOTO 5580 

5560 IF FN e(oS,kS(i+1)) THEN 
LET i=1i+1: GOTO 5530 

5570 PRINT ”" (deve haver dois o 
perandos)”: GOTO 5320 

5580 LET b$=aS( TO 5-1): LET cS 
=aS(j+1 TO ) 

5590 IF FN b(m,2) THEN GOTO 56 
50 

5600 IF EN b(m,7) THEN 
cS: LET cS$=bS: LET bS=ds 
5610 IF b$="ahl" (b+l TO b+b+1) 
THEN GOTO 5720 

5620 IF bS$=" (c)" AND (oS$="in” O 
R 0$="out”) THEN GOTO 5720 
5630 IF (FN e(oS,kS(1+1))) AND 
(FN 5(m(1+1),3)>=2) THEN LET à 
=1+1: GOTO 5530 

5640 PRINT " (primeiro operando 
deve ser a ou hl)”: GOTO 5320 
5650 IF FN b(m,1) THEN GOTO 56 
S0 

5660 LET e5=(b5+* JA TO): 
FOR j=1 TO B: IF eS=r$(3,Db7) TH 
EN LET op=0p+8*(5j-1)*(b7<4)+16 
*(3-6)*(b7/=4)*(523): LET z=(5"1 
)J*(b7=4)*(9<=3): GOTO 57/10 

5670 NEXT 35: IF pS>2kS(1+1) AND 
(EN 53(m(1+1),3)>=2) THEN LET à 
=;j+]: GOTO 5530 

5680 PRINT " (primeiro operando 
deve ser bit ou sinalizador)": 
GOTO 5320 

5690 IF EN b(m,7) THEN LET d5= 
cS: LET cS=bS: LET bS=dS: GOTO 
5660 

5700 LET x=B: GOSUB 5750: IF e 
THEN GOTO 5730 

5710 IF c$="" THEN GOTO 6090 
5720 LET x=1+15*b+/7/* (op<=6 AND 
op>=4 OR b$=" (c)"): LET b$=cgS: 
GOSUB 5750: IF NOT e THEN GOTO 
6090 

5730 IF e=2 OR pS2kS(i+l) AND F 

N 5(m(1+1),3)=EN I(FN x(m,0),3) 
THEN LET e=0: LET i=-i+l: GOTO 
5530 

5740 GOTO 5320 

5750 LET r=0: IF EN b(m,4) AND 

FN e("(”"( TO NOT b),b$S) THEN L 

ET z2=FN e("ix",bS(2-b TO )+" ” 
J+2*%FN e("iy",bS(2Z-b TO )+" "): 
IF z2 THEN LET z=z2: LET eS=b 
S( TO LEN bS-NOT b): LET b$="(h 
1)" (1l+b To d-b): LET £$="0"+es( 

4-b TO ) 

5760 IF EN b(m,3) THEN GOTO 5/7 

90 

5770 LET eS=(bS+" "14 TO d): 

FOR j=1 TO B/(b+1l): IF eg=s5(3. 
b+1) THEN LET op=op+(3-1)*x: R 
E TURN 

5780 GOTO 5810 

15790 LET 32=9+9* (05=" 1d"): FOR 


LET d9= 


/=)2-8 TO 32: IF k(i)<>t(3I) THE 
N Goto 5810 

5800 IF FN e(bS,uS(3)) THEN RE 
TURN 

5810 NEXT 3: IF b$="af” THEN JT 
F FN e("p”,059) THEN LET op=op+ 
48: RETURN 

5820 IF FN b(m,6) AND FN e("(”, 
bS) THEN LET b$=bS(2 TO LEN bS 
-1): GOTO 5860 

5830 IF FN b(m,5) THEN LET op= 
FN x(op+6*NOT b,6): GOTO 5860 


S840 IF p$>kS(1+1) THEN LET es 
2: RETURN 

5850 PRINT "(operando incompati 
vel)": LET e=l: RETURN 


5B60 LET r=65536 

5870 LET s=1 

5880 IF b$="" THEN GOTO 6080 
5890 LET xS=bS (1): LET d$-bSla 
TO ): IF xS$="*" THEN LET r=r+p 
*g: LET bS=dS: GOTO 5870 


5900 IF x5$="+" THEN LET bS=dsS: 
GoTo 5880 

5910 IF x5$="-' THEN LET b$=d5: 
LET s=-s: GO" > 58B0 

5920 IF x$=""" THEN LET r=r+CO 


DE dS$*s: LET tS=d$(2 TO ): GOTO 
5870 

5930 LET q=0: IF x$<>"%” OR dg< 

"0" OR d$>"2”" THEN GOTO 5960 

5940 IF d$>="0" AND d5$<"2” THEN 
LET q=q*2+CODE d$-48: LET d$= 


dS(2 TO ): GOTO 5940 

5950 LET r=r+q*s: LET b$=dS: GO 

TO 5870 

5960 IF x5S<>"5" OR d$S<"0" OR ds 

>="q" THEN GOTO 6000 

5970 LET xS=CHAS CODE d$S: FOR q 

-0 TO 15: IF x5<>hS5(9g+1l) AND xS 

<>9S5 (9t1) THEN GOTO 5990 

5980 LET q=q*16+q: LET d$=dS (2 

TO ): GOTO 5970 

5990 NEXT g: LET r=r+q*s: 

$=dS: GOTO 5870 

6000 IF xS<"a” OR x$>"z” THEN 

GoTo 6040 

6010 LET 1$=bS: GOSUB 9000: IF 

158<>"” THEN  GOSUB 9400 

6020 IF r(g)<>23000 AND r(9)>10 

O THEN LET r=r+(r(9)-100)*s: L 

ET bS$=i5$: GOTO 5870 

6030 IF r(9g)=23000 OR r(9g)<=100 
THEN LET gh=r (fh): LET r(fh)= 

r(g): LET r(g)=£fh: LET fh=9gh: L 

ET z(r(9g))=(p+SGN op+ (ABS op>25 

5)+2x(2>0)+65536* ( (Db OR EN b(im, 

6)) AND 08<>"3r"))*s: LET bS=is 

: GOTO 5870 

6040 IF x5<"0" OR x52"9” THEN 

LET r=0: GOTO 6070 

6050 IF b$>="0" AND bS<”":” THEN 
LET q=q*10+CODE b$-48: LET b$S 

-b$(2 TO ): GOTO 6050 

6060 LET r=r+s*q: GOTO 5870 

6070 PRINT " (enderecamento inco 
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6080 LET r=r-(p+2)*(o5S="dInz” O 
R 0o$="3r”"): RETURN 

6090 PRINT TAB 16;: LET by=p/25 
6: GOSUB 6190: LET by=p: GOSUB 
6190: GOSUB 6160 

6100 IF z THEN LET by=189+72*32 
GOSUB 6180: GOSUB 6160 

6110 IF op>=0 THEN LET by=o0p/2 
56: GOSUB 6170: GOSUB 6150: LET 
by=op: GOSUB 6180 

6120 IF r=0 THEN GOTO 5320 
6130 GOSUB 6160: LET by=r: GOSU 
B 6180: IF (b OR FN Db(m,6)) AND 
oS<"3r” THEN LET by=r/256: G 
OSUB 6180 

6140 GOTO 5320 

6150 IF z AND INT by AND NOT b 

THEN  GOSUB 6260: LET by=VAL £fS 
* GOSUB 6180: LET z=0 

6160 PRINT ” ";: RETURN 

6170 IF INT by<=0 THEN RETURN 

6180 LET by=FN j3(by,8): POKE P, 
by: LET p=p+l 

6190 LET by=FN 5(by,8): PRINT h 
S(I+INT (by/16));hS(FN 3(by,4)+ 
1); 

6200 RETURN 

7000 IF k>n THEN LET i$="end”: 
RETURN 

7010 LET kl=k9+1: IF k9>=LEN t$S 
(k) THEN LET i$="/faltando/”": 
RETURN 


7020 LET k9=kl: IF tS(k,k1l)=" " 
THEN GOTO 7010 

7030 IF k9>2LEN tS(k) THEN LET 
1$=tS(k) (kl TO ): RETURN 

7040 IF tS(k,k9)<>" " THEN LET 
k9=k9+1: GOTO 7030 

7050 LET iS=tS(k) (kl TO k9-1): 

RETURN 

B000 IF k>O THEN IF tS(k)(K9 T 

O )>tS$(99) THEN PRINT tS(k) (k9 


TO )s 

B010 POKE 23692,0: LET k=k+1l: L 
ET k9=0 
8020 PRINT RETURN 


9000 LET x5="" 

9010 IF i5$<"a” OR 158>"z”" THEN 
GoTo 9030 

9020 LET xS=xS+iS(1): LET 15=15 
(2 TO )j: GoTo 9010 

9030 IF 1$<>"" THEN RETURN 
9400 FOR g=1 TO vv: IF FN e(x5, 
zS(9)) THEN RETURN 

9410 NEXT q: LET vv=vv+l: LET z 
S(vv)=xS: LET g=vv: LET r(g)=23 
000 

9420 RETURN 


COMO FUNCIONA O PROGRAMA 





Começando na linha 5000, o progra- 
ma deixa espaço para seu programa em 
Assembly, que deve ser colocado em li- 
nhas REM. Cada instrução deve ser es- 
crita com letras minúsculas e posiciona- 
da em uma linha REM separada. 

Antes de montar o programa, deve- 
mos proteger uma área de memória pa- 
ra que o Assembler possa colocar os có- 
digos, usando CLEAR. A primeira li- 
nha de seu programa deve ser mais ou 
menos assim: 


10 REM org 55000 


32000 é o endereço inicial do progra- 
ma em código. Obviamente, ele deve es- 
tar na área protegida da memória. 

Se esquecermos de definir org, ou se- 
ja, a origem, o Assembler colocará o pro- 
grama a partir de 50000. 

O programa aceita os códigos mne- 
mônicos-padrão do chip Zilog Z-80, 
com exceção dos comandos de retorno 
condicional. Entretanto, o comando de 
retorno incondicional de sub-rotinas, 
cujo mnemônico é ret, funciona em nos- 
so Assembler. 

Algumas vezes, contudo, utilizamos 
retornos condicionais, como ret nz, que 
significa: “retorne se não for zero”, 
Neste programa, porém, digite a instru- 
ção rts nz. A razão disso é que rts deve 
substituir ret sempre que forem neces- 
sários retornos condicionais. Quando se 
tratar de retorno incondicional, ou seja, 
quando ret não for seguido de nenhu- 
ma letra, use o mmemônico padrão ret. 

Números hexadecimais devem ser 


O que acontecerá se houver um erro 
em meu programa fonte? | 
Nosso Assembler é capaz de emitir 


| mensagens de erro, pois a sua estru- 


tura de programação está preparada 
para detectar falhas no programa em 
Assembly. Alguns comandos, por 


| exemplo, só trabalham com os regis- 


tros a e hl. Se tentarmos usá-los com 


| outros registros, o Assembler dirá: | 


“Primeiro operando deve sera ou hl 

Se um comando não for reconheci 
do devido a um erro de digitação, se- 
remos automaticamente informados: 
“Linha não foi reconhecida”. A expres- 
são “Deve haver dois operandos” sig- 
nífica que deixamos de digitar um nú- 
mero vital após o comando. “Operan- 
do incompatível" indica um uso inade- 
quado do comando. “Primeiro operan- 
do deve ser bit ou sinalizador” signifi- 
ca que um operando inadequado foi 
usado em um comando de desvio ou de 
atribuição de bits. 


Existe uma maneira de se programar 


em Assembler nos ZX-87? 

Existe; mas o meio para isso não é 
um programa montador desenvolvido 
em BASIC, como os que serão apresen- 
tados mais adiante para as linhas MSX, 
Apple Il, TRS-BO e TRS-Color. 

Montadores em BASIC para o 
ZX-B81 (com seus similares nacionais 
TK-85, CP-200, etc.) são inviáveis por- 
que o programa resultante seria muito 
grande e de difícil digitação e operação: 
na verdade, ele não caberia na memó- 
ria da maioria dos micros dessa linha; 
além disso, O processo de tradução e 
montagem desse programa seria extre- | 
mamente lento. 

Para comprovar isso, observe a lis- | 


| tagem para o ZX Spectrum que acom- 


panha este artigo: é a inexistência de 
declarações READ e DATA no ZX-81, 


"o que dificulta a programação. 


Seria possível programar um Às- 
sembler reduzido, sem rótulos alfabé- 
ticos, e com um conjunto menor de co- 


| mandos. Mas isso o tornaria inútil pa- 


ra quem quer aprender a programar se- 


| riamente, e impossibilitaria o usuário de 


digitar e testar os programas em códi- 
go Assembler que aparecerão em lições 
futuras. Por isso, quem quiser progra- 


| mar em Assembler no ZX-81, deve re- 
correr a um programa tradutor compac- 


to, eficiente e rápido, escrito em códi- 
go de máquina e disponível comer- 
cialmente. 
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precedidos do caractere $; números bi- 
nários, do caractere Yo. Qualquer núme- 
ro que não seja precedido de algum ca- 
ractere será interpretado como decimal. 
Qualquer palavra que não seja um co- 
mando Assembly será considerada co- 
mo um rótulo (label). Evite usar pala- 
vras parecidas ou muito longas; núme- 
ros não são permitidos. 

Para que o Assembler saiba onde pa- 
rar, termine seu programa com REM 
end. 

Uma vez colocado o programa As- 
sembly a ser montado (o programa fon- 
te) nas linhas REM iniciais, basta rodar 
o Assembler para se obter uma listagem 
dos códigos equivalentes na tela: o pro- 
grama objeto. O Assembler coloca o 
programa objeto simultaneamente na 
memória e na tela. 

Se a esta altura for cometido algum 
erro na digitação das linhas, será sufi- 
ciente, para corrigi-lo, listar o Assem- 
bler, editar a linha REM corresponden- 
te e usar novamente RUN. 

Montado o programa, o endereço fi- 
nal da rotina em código de máquina 
aparecerá na tela. 

Para executar o programa em códi- 
go usamos instruções do tipo RAN- 
DOM USR. 

Se quisermos gravar o programa ob- 
jeto, devemos digitar: 


SAVE “nome” CODE endereço inicial, 
número de bytes. 





COMO DETECTAR ERROS EM 
PROGRAMAS LONGOS 

Sempre que a mensagem “OUT OF 
DATA" aparecer na tela, verifique se 
está faltando alguma coisa nas linhas 
DATA (lembre-se de que a ausênciade 
uma simples vírgula pode deitar a per- | 
der todo o programa). Um dos erros | 
mais comuns na digitação de longos 
programas consiste justamente na 

| omissão de trechos de linhas DATA. 

Por isso, caso seu Assembler não fun- 
cione ao ser rodado pela primeira vez, 
não se desespere: ele certamente “em- 
pacou”” devido a erros de digitação. 

Esses errros podem ser detectados 
por meio de um programa de rastrea- 
mento, que escreve na tela o número 
da linha BASIC que está sendo execu- 
tada. Um programa de rastreamento 
completo será apresentado mais | 
adiante. | 


“Nome” é o nome do programa ob- 
jeto e deve estar entre aspas. CODE in- 
forma ao computador que está sendo 
gravado um programa em código de má- 
quina e não em BASIC. O endereço ini- 
cial é a origem do programa na memoó- 
ria. Podemos calcular o número de bytes 
subtraindo a origem do endereço final 
e somando 1. 

O Assembler e o programa fonte po- 
dem ser gravados juntos, como um pro- 
grama BASIC, usando-se SAVE da ma- 
neira habitual. 


UM TESTE 


Para testar seu programa, entre o 
programa de deslocamento horizontal 
da tela para a direita, que se encontra 
na página 215. Uma vez traduzido para 
código, esse programa ficará assim: 
11 FF 57 21 FE 57 06 CO C5 LA 
01 1F 00 ED B8 12 2B 1B Cl 10 
F3 C9 











Note que devemos usar letras minús- 
culas para digitar o programa fonte. 
Nosso Assembler não reconhece coman- 
dos em maiúsculas. 


“+ Ro 


Não apresentaremos um Assembler 
para o ZX-81, pois é muito dificil escre- 
ver um programa desse tipo em BASIC 
para esse micro. Se você tem um ZX-81 
e está Interessado em código de máqui- 
na, sugerimos a compra de um Assem- 
bler gravado em fita cassete e disponí- 
vel em lojas especializadas. 

Caso já disponha de algum, teste O 
programa de deslocamento da tela para 
a direita apresentado na página 217 
que, uma vez traduzido para código de 
máquina, ficará assim: 


2A OC 40 11 16 03 19 54 5D 13 
06 18 Cc5 1A 01 1F 00 ED B8 12 
cb 1B 1B Ci 1U FI Cy 











Aspiração de todo programador que 

se preza, a eficiência no 
processamento de textos e na digitação 
de programas tem um pré-requisito 
fundamental: saber datilografia. 


O futuro nos reserva, certamente, 
muitas surpresas no campo das relações 
entre o homem e a máquina, Uma de- 
las pode ser a abertura de novos canais 
de comunicação entre o computador e 
o usuário — como, por exemplo, a voz 
humana. Atualmente, alguns desses sis- 
temas de controle mais sofisticados já 
vêm sendo aplicados em máquinas 1n- 
dustriais e comerciais a um preço rela- 
tivamente baixo. A maioria dos usuá- 
rios, porém, vai ter que-esperar muito 
tempo até ter acesso a essas Inovações. 
Enquanto isso, o velho teclado conti- 
nuará a ser o dispositivo básico de en- 
trada de um computador. 

Na verdade, o teclado é um instru- 
mento de eficiência razoável para se 
transmitir instruções ao computador. 


Sua utilização, no entanto, consome 
muito tempo, especialmente quando o 
operador não é um exímio datilógrafo. 
Essa perda de tempo é visível quando 
tentamos copiar uma listagem e somos 
obrigados a olhar do teclado para a te- 
la e desta para o papel, só para nos as- 
segurarmos de que os dados estão sen- 
do introduzidos corretamente. 

Assim, por que não utilizar o com- 
putador no aprimoramento do modo de 
datilografar? Fazendo isso, você econo- 
mizará tempo e evitará dores de cabe- 
ça, quando quiser escrever programas 
ou explorar o potencial de um compu- 
tador como processador de textos. O 
programa que se segue ajudará a se fa- 
miliarizar com o teclado e aumentar a 
velocidade e a precisão na datilografia. 

O Sinclair Spectrum apresenta a des- 
vantagem de ter um teclado de difícil 
manipulação e grande velocidade. A in- 
trodução de programas, contudo, exige 
apenas um toque de tecla para cada co- 
mando em BASIC, Note que não esta- 
mos apresentando uma versão do pro- 
grama para o Sinclair ZX-81. Isso se de- 
ve ao fato de que sua execução se tor- 


o PARA QUE APRENDER 


DATILOGRAFIA? 


= AS TECLAS DE APOIO 
ME MELHORE A VELOCIDADE É A 
PRECISÃO NA DATILOGRAFIA 





naria muito lenta, perdendo eficácia co- 
mo forma de treinamento. 


O PROGRAMA 





Do mesmo modo que qualquer cur- 
so padrão de datilografia, nosso progra- 
ma tem por objetivo desenvolver meto- 
dicamente a destreza do iniciante. Esse 
programa, no entanto, não é nenhum 
processo mágico e, como qualquer ou- 
tra coisa que se queira aprender, exige 
dedicação. 

Para efeitos didáticos, ele foi dividi- 
do em etapas mais ou menos fáceis, com 
seções extras de programação acrescen- 
tadas a cada uma das fases. Dessa ma- 
neira, é possivel avançar através de mis- 
seis cada vez mais difíceis. Outra virtu- 
de de nosso curso consiste em apresen- 
tar, ao longo de seu desenvolvimento, 
uma atualização constante da velocida- 
de e da precisão atingidas pelo iniciante. 

Se você é usuário de um Apple II, fi- 
cará sem o recurso de cronometragem, 
devido à falta de um “clock” acessível 
nesse micro. Talvez a cronometragem 








manual o auxilie, nos níveis 4e 5, a con- 
trolar seus progressos na datilografia. 


CONHEÇA AS TECLAS DE APOIO 





Ser um exímio datilógrafo significa 
ser capaz de pressionar as teclas corre- 
tas sem precisar olhar para elas sempre 
que se quer localizá-las. Evidentemen- 
te, isso só poderá ser feito quando se sa- 
be previamente onde se encontram as le- 
tras no teclado. E preciso, portanto, 
“educar” os dedos para que eles encon- 
trem automaticamente as teclas deseja- 
das. O primeiro passo para isso consis- 
te em posicionar os dedos sempre na 
mesma posição sobre o teclado. Datiloó- 
grafos profissionais fazem isso assegu- 
rando-se de que os dedos das duas mãos 
repousem sempre sobre as mesmas te- 
clas, as denominadas teclas de apoio. 


“ Estas são as teclas da fileira do meio do 


pa 
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DT = 


teclado, começando pelas letras A,S,D, 
F... Portanto, estas serão as teclas que 
devemos memorizar em primeiro lugar. 

Uma vez dominada a localização des- 
sas teclas básicas, o restante do teclado 
pode ser alcançado movendo-se cada de- 
do para cima ou para baixo. 

Para obter o máximo rendimento no 
curso será preciso ater-se a essa dispo- 
sição, sem nunca tentar “enganar” o 
computador. Por outro lado, os que in- 
sistem em continuar “catando milho” 
devem também procurar obter um gra- 
dativo aprimoramento de sua destreza. 

Ao mtroduzirmos 0 programa — ta- 
refa que deverá tornar-se cada vez mais 
fácil à medida que o curso prosseguir — 
devemos ficar com as mãos pousadas 
sobre o teclado, aguardando as instru- 
ções que aparecerem na tela e que serão 
explicadas a seguir. 

O dedo mínimo da mão esquerda de- 
ve repousar sobre a tecla A, o anular so- 


mão rt lim = - ms > 





bre O 5, assim por diante, terminando 
com o dedo indicador sobre a tecla F. 
O indicador direito, por sua vez, deve 
estar na tecla J, o dedo médio na tecla 
K, e assim por diante. Os polegares (ex- 
ceto no caso do Spectrum) devem 
posicionar-se sobre a barra de espace- 
jamento. As letras G e H, portanto, não 
são cobertas por nenhum dedo. Quan- 
do é necessário acioná-las, o G pode ser 
alcançado com o dedo indicador esquer- 
do, eo H com o indicador direito. 

Parece complicado, mas não se preo- 
cupe: a primeira parte do programa se 
destina justamente a familiarizá-lo com 
as letras do teclado. 





COMO FUNCIONA O PROGRAMA 


Ao se executar o programa, a tela 
mostrará cinco opções, que correspon- 















ET o nmdMintt 


Eli a 


em) o eta ses 


dem a níveis de dificuldade crescente. 
Você deve escolher uma entre elas. Se 
você está começando a aprender, preci- 
sa estudar primeiro a lição 1 para, só de- 
pois de dominar seu conteúdo, passar 
para a lição 2, e assim por diante. 


NÍVEL 1 


A tela apresentará as teclas de apoio 
em uma linha, na mesma ordem em que 
estão no teclado. Ao mesmo tempo, se- 
rá mostrado um asterisco que, 
deslocando-se acima das letras, percor- 
rerá o teclado do A até o L no Spectrum 
e no CP400, até o; (ponto e vírgula) no 
Apple, até o Q no MSX. Para se acio- 
nar as teclas, deve-se tocá-las na seguên- 
cia indicada pelo asterisco e com o de- 
do correto (lembre dequeo Ge o H exi- 
gem um deslocamento do dedo indica- 
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dor de cada mão), voltando-se às teclas 
de apoio logo em seguida. Utilize o de- 
do mínimo direito para as teclas; e Ç. 
O asterisco continuará no mesmo lu- 
gar, caso seja cometido algum engano. 
Uma tecla batida corretamente será 
anunciada por um bip, e por um som 
grave se houver um erro ou se uma le- 
tra for omitida. (No Apple ocorrerá o 
oposto.) 
Ao fim de cada exercicio, a tecla 
mostrará o tempo gasto e o número de 
erros cometidos. 





NÍVEL 3 


Este nível também apresenta letras 
aleatoriamente, uma por vez. Agora, 
porém, a tela não indicará sua posição 
no teclado. Em vez disso, elas serão 
mostradas individualmente no centro da 
tela. Mais uma vez, as letras serão em 
número de vinte. 


NÍVEL 4 


Finalmente, pode-se datilografar al- 


gumas palavras. As expressões deste 


DIGITE A PALAVRA INDICADA 


NÍVEL 2 


Uma vez familiarizado com a posição 
das letras no teclado, você pode passar 
para este nível, que é semelhante ao pri- 
meiro, exceto que agora o asterisco se 
deslocará aleatoriamente sobre as letras 
(não vale trapacear olhando a posição 
da letra do teclado). Novamente, o tem- 
po que se levar para completar o exer- 
cício (serão apresentadas vinte letras 
aleatoriamente) e o número de erros co- 
metidos serão apresentados no final. 


exercício utilizam apenas as letras das te- 
clas de apoio: FADA, por exemplo. Ao 
contrário do nível anterior, serão apre- 
sentadas no centro da tela vinte palavras 
(e não letras) aleatoriamente e em suces- 
são, isto é, uma após a outra. A medi- 
da que as palavras forem sendo copia- 
das, um asterisco indicará cada uma de 
suas letras. E, mais uma vez, será apre- 
sentado o resultado do tempo gasto e da 
precisão. Não se deve trapacear olhan- 
do para o teclado; senão, não será pos- 





256 


sível completar os testes mais dificeis, 
apresentados nas próximas lições. 


NÍVEL 5 


Desta vez será escrita uma sentença 
com cerca de seis palavras aleatórias. A 
medida que estas forem sendo digitadas, 
as letras aparecerão uma após a outra. 
Quando à linha toda tiver sido datilo- 
grafada, será mostrado o desempenho 
do datilógrafo, assim como um valor 
correspondente à velocidade em termos 
de palavra por minuto. Ao se digitar as 
palavras que surgirem na tela, não se de- 
ve esquecer dos espaços em branco en- 
tre elas; esse espaço é obtido quando sé 
toca na barra de espacejamento com um 
dos polegares. No Spectrum será preci- 
so pressionar com o dedo minimo a bar- 
ra de espaços, situada numa posição um 
tanto incômoda. 

Deve-se exercitar cada um dos níveis, 
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até que se torne fácil executá-los. Nos 
próximos capitulos acrescentaremos le- 
tras e palavras novas. 


10 BORDER 1: 
CLS 

20 POKE 23658,8: LET ER=0O 
30 LET 55="ASDFGHJKL” 


PAPER 1: INK 7: 


100 PRINT INVERSE 1L;AT 8B,3;* 
PROFESSOR DE DATILOGRAFIA ” 
110 PRINT ''TAB 6;"SELECIONE N 


IVEL (1 A 5)” 
120 IF INKEYS="" 
120 

130 LET AS=INKEYS: IF AS<T1” 
OR AS$>"5" THEN GOTO 120 

140 SOUND .2,10 

150 GOSUB VAL AS*100+100 

160 GOTO 20 

200 GOSUB 1000 

210 FOR K=7 TO 23 STEP 2 

220 PRINT AT 10,K;"*" 

230 LET RS=SS((K-5)/2) 


THEN GOTO 


240 GOSUB 1100 

250 IF. C=0 THEN GOTO 240 

260 PRINT AT 10,K;" " 

270 NEXT K 

280 CLS : GOTO 1300 

300 GOSUB 1000 

310 FOR K=1 TO 20 

320 LET ARN=INT (RND*9)*2+1 
330 PRINT AT 10,RN+6;"*": LET 


R$=5S ((RN+1)/2) 
340 GOSUB 1100: 
GOTO 340 

350 PRINT AT 10,RN+6," ” 
360 NEXT K 


IF C=0 THEN 


I7U CLS GOTO 1300 

400 CLS PRINT "DIGITE A LETR 
à INDICADA NA TELA” 

410 FOR N=1 TO 100: NEXT N 

420 POKE 236/7/2,0: POKE 236/3,0 
430 FOR K=1l TO 20 

440 LET RN=INT (RND*9)+1 

450 PRINT AT 11,16;55(RN) 

460 LET R$=55 (RN) 

470 GOSUB 1100: IF €=0-THEN 
GOTO 470 

480 PRINT INVERSE L;AT 11,16; 
" És NEXT K 

490 CLS GOTO. 1300 























500 CLS : PRINT 
VRA INDICADA”: 
POKE 23673,0 
510 LET TL=0: FOR N=1 TO 20: 
RESTORE LET RN=INT (RND*24)+ 
1 


"DIGITE A PALA 
PORE 29672,0: 


520 FOR K=1 TO RN: READ TS: 
NEXT K 

530 PRINT AT 10,137 ur 
PRINT AT 10,13;TS 

540 FOR M=1 TO ie TS: PRINT 


AT 9,11+M;” * 

550 LET R$=TS (M): GOSUB 1100 
560 IF C=0 THEN Goto 550 

S70 NEXT M 

580 LET TL=TL+LEN TS: NEXT N 
590 CLS PRINT AT 18,0;"PALAV 
RAS POR MINUTO= ";INT (TL*500/ 


(PEEK 23672+256*PEEK 23673)+.5 
)J: GOTO 1300 


600 CLS PRINT "DIGITE AS PAL 


AVRAS INDICADAS”: LET TS="" 
610 FOR N=1l TO 6: RESTORE : 
LET RN=INT (RND*24)+1:. FOR K=1 


TO RN: READ X$S: NEXT K 
620 LET TS=TS+X5+" ” 
630 NEXT N: LET TS=TS( TO LEN 
T$=1) 
640 POKE 293672,0: 
| PRINT AT 10,0;TS 
650 PRINT AT 12,0;: 
LEN T$ 
660 LET R$=T5S(M): GOSUB 1100 
670 IF C=0 THEN GOTO 660 
680 PRINT TS(M);: NEXT M 
690 LET TL=LEN TS: GOTO 590 
1000 CLS : PRINT "PRESSIONE A T 
ECLA INDICADA PELO ASTERISCO” 
1010 PRINT AT 12,7;"A S DF G B 
3. KUL” | 
1020 FOR K=1l TO 100; NEXT K: PO 
KE 23672,0: POKE 23673,0 
1030 RETURN 
1100 PAUSE O 
1110 LET AS=INKEYS: 
HEN SOUND .2,-10: 
LET C=0; RETURN 
1120 SOUND .05,20: 
URN 
1300 PRINT AT 19,0;"TEMPO= ";(P 
EEK 23672+256*PEEK 23673)/50;" 
SEGUNDOS": PRINT "NUMERO DE ERR 
0S= ";ER 
1310 PAUSE 100: RETURN 
2000 DATA "FADA”,"GALA","SALA”, 
“DADA” ,"ASA”,"LAKA”,"ALAGA","AL 
ADA” ,"LA”,"GAS”,"DALLAS","SAGA” 
2010 DATA "AFAGA","FALHA”,"ADAG 
A", "HA”,"AGA”,"HAJA”,"HALL”,"GA 
LHAS","FALA","FALHA”,"AJA”,"JAL 
LO OBS="A S DF GH JK L? 
20 CLS 
30 DIM w5 (28) 
40 FOR K=1 TO 28 
50 READ WS(K) 
60 NEXT 
70 PRINT 871,"QUAL O NIVEL DE” 


80 PRINT €101,"DIFICULDADE (1-5 
do 


POKE 23673,0 


FOR M=1 TO 


IF AS<>BS T 
LET ER=ER+I1: 


LET Cel: RET 


800 


90 PRINT €165, "DIGITE (0) PARA 
SAIR” 

100 AS=INKEYS: IF AS<"0” OR AS>” 
5” THEN 100 

110 -A=VAL(AS):ON A+rl GOSUB 999, 
200, 300,400,600,800 

120 ER=0 

130 GoTo 70 

200 .GOSVUB. 1000 

210 AP=1252 

220 FOR K=1l TO 9 

230 AP=AP+2 

240 GOSUB 1100 

250 NEXT 

260 CLS: PRINT 8448, "TEMPO="; TIM 
ER/50; "SEGUNDOS" | 
270 PRINT"NUMERO DE 
280 RETURN 

300 GOSUB 1000 

410 FOH K=I TO 20 
320 AP= 12522%RND'(9) E 
330 GosuUB AMOR e 
340 NEXT. Er seo 
350 CLS e 

360 PRINT duas, "rEmpO="sormen/S 
0; "SEGUNDOS" 

370: PRINT NUMERO. DE. ERROS=" 
380 RETURN : 


ERROS="; ER; 


à até que se consiga datilografar vinte le- 


"EE 
[, Er: 



















| Qual a velocidade de datilografia que | 
| devo tomar como meta para começar? 

Na etapa inicial do curso, o mais cor- 
reto é preocupar-se com a precisão e 
não com a velocidade. Depois que se 
| consegue datilografar todas as palavras 
sem cometer nenhum erro, pode-se 
pensar em acelerar o ritmo de trabalho. 

Deve-se praticar os Níveis 1, 2 e 3 


tras em doze ou treze segundos; nos 
Níveis 4 e 5, deve-se ter como meta 
cerca de quinze palavras ou mais por 


400 CLSO: PRINT”. DIGITE A TE go pécmç 


INDICADA NA TELA”. 
410 
B, Lo 
420 
430 
440 
450 
460 
470 
=ER+L:GOTO 450 
480 POKE 1263,128, 
490 SOUND 200,1 
500 NEXT 

510 GOTO: 350 


“PRINT eanbpno gi: 
FOR K=1 T0/20 0. 
P$=MIDS (OBS, 2*RND(9) =1,1) 
PRINT 8239,PS; 
AS=INKEYS: IF. Ag=ra THEN 450. 
IF K=1 THEN TIMER=0. 


600 CLS:PRINT" DIGITE A TECLA e 


UE APARECER” 

610 T=0 

620 FOR K=l TO 10 
630 P$=WS (BND (28)) 
640 T=T+LEN(PS$) 

650 PRINT €237,PS 
660 P=1 

670 POKE 1228+P, 106. 
680 
690 IF K=1 THEN TIMER=0 

700 IF AS<>MIDS(PS,P,1) THEN ER 
=ER+1:SOUND 5,1:GOTO 670 

710 POKE 1228+P,96 
720 SOUND 200,1:P=P+1 
(P$) THEN 670 

730 NEXT 

740 CLS 


IF. P<=LEN 


760 GOTO 360 

CLS:P$="":FOR K=1 TO 6 

P$=PS+WS (RND(28))+" ". 

NEXT | 
PS=LEFTS (PS, LEN(P$)-1) 


PRINT” DIGITE ESTAS PALAVRA 


B10 
B20 
830 
840 
Ss” 

850 
8s0 
870 


P= ais PRINT 6224,PS 
TIMER=0: GoTo. 8s0 


ap hs 8206," o ePRI Pe 


IF AS<>PS THEN SOUND 5, J: ER. 


AS=INKEY$S:IF AS="" THEN 680 


AS=INKEYS: IF Ager” THEN 860 . 







E HA ND 2 hr 
“go. “T=LEN (PS) GOTO 740 

999 CLS:END 

1000 CLS: PRINT"PRESSIONE A TECL 


<a INDICADA PELO ASTERISCO” 


1010 PRINT €262,0B5 

- 1020. FOR K=1 TO 1000: NEXT 

030 RETURN | 

“1100 POKE AP,106. 4 

io AS=INKEYS: IF agem “THEN 11 
ne ETA E) 
020 E ed TuENO TIMER=O 

1126 PRINTÉISA32] PEEK (AP+32) ; 
1130. IF (ASC(AS))<S>PEEK (AP+32)T 
HEN SOUND 5, «À: ERSER+: Goto 1110 
“hão. SOUND. 2DOÃ 

1150 POKE AP, 96. 

"1160 RETURN - 

- 9000 DATA FADA,GALA, SALA,DADA,A 

* SA, LAKA,ALAGA, ALADA, LA, GAS, DALL 

AS,SAGA, GALHADA, FALA 

“9010 DATA AFAGA, FALHA,ADAGA, HA, 

AGA, HAJA JA, HALL, KA,FA,AJA, DAS, 

RARE ii ) 


T 4 


750 PRINT 6416, USING" PALAVRAS Res 
“OR MINUTO= tt. t+" ;T*500/TIMER | 


S B=END (STIME), 
10 OBS="A SDF GH JKLGç":z5 


* =CHR$(219) :SS="LIO 02 G” 


20 SCREENIL:CLS 

-30 DIM WS(28) 

40 FOR K=1 TO 28 

50 READ WS (K) q 

60 NEXT 

70 LOCATE. 74: PRINT" Qua) nível 
“de” Giz 

BO LOCATE 5,6: PRINT"dificuldade 








od àF io Rai 
90 LOCATE 3,9:PRINT"Tecle <0> p 
ara terminar.” 


100 AS=INKEYS:IF AS<"O0” OR AS>' 
5” THEN 100 
110 ON VAL (AS)+1 GOSUB 999, 200, 


300,400,600,800 

120 ER=Q 

130 GOTO 70 

200 GOSUB 1000 

210 AP=357 

2:20 FOR K=1l TO 10 

230 AP=AP+2 

240 GOSUB 1100 

250 NEXT 

260 CLS 

270 LOCATE 5,12:PRINT'Tempo =": 
INT (TIME/60) ;"segundos.” 

280 LOCATE 6: PRINT"Número de er 
ros =": EB; 

290 RETURN 

300 GOSUB 12000 

310 FOR K=1 TO 20 

320 AP=359+INT (RND(1)*10)*2 

330 GOSUB 1100 

340 NEXT 

350 GOTO 260 

400 CLS: PRINT"Digite a letra mo 
strada na tela:” 


410 LOCATE 11,9: PRINTZS;29;25;Z 
S:LOCATE 11:PRINTZS;" 
ATE 11:PRINTZS;" 

: PRINTZ9S; 25:25; 45 


"rés: LOC 
"185: LOCATELL 
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420 FOR K=1 TO 20 

430 P$S=MIDS (0BS, INT (RND(1)*10)* 
tl ,d) 

440 LOCATE 13,11:PRINTPS; 

450 AS=INKEYS:IFAS=""THEN45O0 
460 IF K=1 THEN TIME=Ô 

470 IF AS<>PS THEN PLAY SS: ER=E 
R+1:G0TO450 

480 PRINTCHRS (8) ;CHRS (32); 

490 BEEP 

500 NEXT:GOTO 260 

600 CLS: PRINTCDigite a palavra 
que aparecer:”" 

610 
620 


TL=0 

FOR K=1 TO 10 

630 PS=WS (INT (RND(1)*28)+1) 

640 T=LEN(PS):TL=TL+T:L=INT((30 
=T)/2) 

645 LOCATE 0,11:PRINTSPACES (30) 
650 
655 
660 
670 


LOCATE L,11:PRINTPS 

FOR J=1 TO T 

LOCATE L,10:PRINTCHRS (205); 
AS=INKEYS:IFAS=""THEN6/0 
6B0 IF K=1 THEN TIME=O 

690 IF AS<>MIDS (P$S,J,1) THEN PLA 
Y SS:ER=ER+I:GOTO 670 

700 LOCATE L,10:PRINTCHRS (32); 
710 BEEP:L=L+1L:NEXT 

/20 NEXT 

730 CLS:LOCATE 2,16:PRINT "Pala 
vras por minuto:";:PRINT USING 
"444.144" ; TLX600/TIME 


740 GOTO 270 

B00 CLS:PS="" 

810 FOR K=1l TO 5:PS$=PS+WS (INT(R 
ND (1)*28)+1)+CHRS (32) :NEXT 

B20 PS=LEFTS (PS, LEN(PS)-1) 

B30 PRINT"Digite estas palavras 


P=1:LOCATE 0,11: PRINTPS 
AS=INKEYS: IFAS=""THEN8B5SO 
TIME=Ô:GOTO BB0 

B70 AS=INKEYS:IFAS=""THENB/O 
880 IF AS<>MIDS (PS,P, 1) THEN PLA 
Y 55: ER=ER+I:GOTO 8/70 

B90 LOCATE-1+P,14:PRINTMIDS (PS, 
P,1) 

900 BEEP:;P=P+):IF P<=-LEN(PS) TH 
EN 870 

910 TL=LEN(PS):GOTO 730 

999 SCREENO: END 

1000 CLS: PRINT"Digite o caracte 
r indicado pela seta:” 

1010 LOCATE 5,12:PRINTOBS 

1020 FOR K=1 TO 1000:NEXT 

1030 RETURN 

1100 VPOKE BASE (5) +AP,205 

1110 AS=INKEYS: IF AS=""THEN 111 
0 
1120 IF K=1l THEN TIME=O 

1130 IF ASC(AS)<>VPEEK (BASE (5) 
+32+AP) THEN PLAY 55: ER=ER+IL:GOT 
o 1110 

1140 BEEP 

1150 VBOKE BASE (5)+AP,O 


840 
850 
860 














1160 RETURN 

9000 DATA FADA, SALA, ADAGA, DADA, 
FAÇA, FA,GALA, HAJA, AGA, HALL, ALAD 
A, ASA,GAS, FALHA 

9010 DATA FALA, LAÇA, ALAGA, LAKA, 
SAGA, JA, AJA, AFAGA, GALHADA, DALLA 
S,LA,HA,ASSA, LAJA 


10 0BS - "A 5 DEFÃJÃGÃHÃãJI 
E Eos 

20 HOME 

30 DIM W5(28B) 


40 FOR K = 1 TO 28: READ WS(K) 
: NEXT 

50 HTAB 14: VTAB 5: PRINT "Qua 
| nivel de” 

60 PRINT HTAB 12: PRINT “dif 
iculdade? (1-5)”. 

70 HTAB 9: VTARB 11: PRINT "Tec 


le <0> para terminar.” 

BO GET AS: IF AS < "0" OR AS > 
"5” THEN 80 

90 ON VAL (A$) + 1 GOSUB 999, 
200,300,400,500,600 


100 ER = O 

110 GOTO 50 

200 GOSUB 1000 

210 AP = 2 

220 FOR K = | TO 10:AP = AP + 

3: GOSUB 1100: NEXT 

230 HOME 

240 VTAB 15: HTAB 12: PRINT CN 

umero de erros = "; ER; 

250 RETURN 

300 GOSUB 1000 

310 FOR K = 1 TO 20 

320 AP = 2 + INT ( RND (1) * 1 

O + 1) * 3 

330 GOSUB 1100: NEXT 

340 GOTO 230 

400 HOME PRINT "Digite a let 

ra mostrada na tela:” 

410 VTAB 9: HTAB 18: INVERSE 
PRINT ” ". HTAB 18: PRINT " 
"- HTAB 18: PRINT ” 

420 FOR K = 1 TO 20:PS = MIDS 
(0BS, INT ( END (1) * 10 + 1) 

* 3 - 2,1) 

430 VTAB 10: HTAB 19: PRINT PS 
: CHARS (8); 

440 GET AS: IF AS < > PS THEN 


PRINT CHAS (7);:ER = ER + d1: 
GOTO 440 
450 A = PEEK ( - 
EEK ( - 16336): NEXT 
GOTO 230 
500 HOME PRINT "Digite a pal 
avra que aparecer:” 
510 TL = O 


16336) :A = P 
NORMAL 


520 FOR K = 1 TOlO 

530 PS = W5( INT ( RND (1) * 28 
jo de: dO) 

540 T = LEN (PS):L = INT ((40 
- cf dd 

550 PRINT VTAB ll: CALL - 9 
58: HTAB L: PRINT PS 

560 FOR J = 0TOT-1: VTABIM 

O: HTAB J + L: PRINT "*"; CHARS 
(8); 

570 GET AS: IF AS < > MIDS ( 


PS,J + 1,1) THEN PRINT cCHAS ( 








7);:ER - ER + 1: GOTO 570 


580 A = PEEK ( - 16336):A = PP 

EEK ( - 16336): PRINT CHRS (32 

)J:: NEXT 

585 NEXT 

590 GOTO 230 

600 HOME :PS = "" 

610 FOR K = 1 TO 6:PS = PS + W 

S(C INT ( RND (1) * 28) + 1) + 

CHAS (32): NEXT 

620 PS = LEFTS (PS, LEN (PS) - 
4) 

630 PRINT "Digite estas palavr 

as: 

640 P = 1: VTAB 11: HTAB 4: PRI 

NT PS 

650 GET AS: IF AS < > MIDS ( 

PS,P,1) THEN PRINT CHR$ (7);: 

ER = ER + 1: GOTO 650 

660 VTAB 15: HTAB P + 3: PRINT 
MIDS (P$S,P,1) 

670 A = PEEK ( - 16336) :A = PP 


EEK ( - 16336):P = P + 1: IF P 
< = LEN (PS) THEN 650 





680 GOTO 230 


999 HOME END 

1000 HOME PRINT "Digite o ca 
racter indicado pelo a 
sterisco:” 

1010 VTAB 12: HTAB 5: PRINT OB 
5 

1020 FOR K = 1 TO 500: NEXT 
1030 RETURN 

1100 POKE 1319 + AP,170 

1110 GET AS: IF ASC (AS) < > 


PEEK (1319 + AP + 128) - 128 


THEN PRINT CHARS (/);:ER = ER 
+ 1: GOTO 1110 

1120 A = PEEK ( - 16336):A = 
PEEK ( - 16336): POKE 1319 + AP 
+ 160 

1130 RETURN 

9000 DATA FALA,AGA,AFAGA,GAS, 


SALA, DADA, HAJA, HALL, LAKA, ASA, AL 
ADA, ASDFG, SAGA, KAKA 

9010 DATA AJA,FA,ALAGA, JA, AGA 
| HA, GALHADA, FALHA, GALA, FADA, DAL 
LAS, ASSADA, LALA, ; LKJH 











CÓDIGO DE 
CONTROLE 


Os códigos de controle correspon- 
dem, na maioria dos micros, aos códi- 
gos de O a 31 no sistema ASCIL, e ser- 
vem para realizar uma série de funções 
relacionadas principalmente com o con- 
trole do video. 

Caso você não saiba ainda, ASCII é 
um sistema de codificação padronizado 
mundialmente e utilizado por quase to- 
dos os computadores. ASCII significa 
American Standard Code for Informa- 
tion Interchange (Código Padrão Ame- 
ricano para Intercâmbio de Informa- 
ção), é se pronuncia dsqgui. 

Originalmente, os códigos de contro- 
le do ASCII correspondiam às funções 
básicas de transmissão de um terminal 
ligado ao computador: inicio de trans- 
missão, sinal de atenção, fim de trans- 
missão, acionamento da campainha do 
terminal, etc. 

Entretanto, cada fabricante de micro- 
computadores aproveitou a faixa de có- 
digos de O a 31 para implementar fun- 
ções diferentes. Com poucas exceções, 
portanto, a a maioria dos códigos de con- 
trole não é padronizada, como aconte- 
ce com os códigos correspondentes a ca- 
racteres comuns (letras, números, sinais 
matemáticos e de pontuação, etc.). 





O ACESSO AOS CÓDIGOS DE CONTROLE 


Existem duas técnicas básicas de uti- 
lização de códigos de controle. Uma de- 
las — mais universal — pode ser apli- 
cada a qualquer microcomputador que 
disponha da função CHRS no interpre- 
tador BASIC. A outra é * aplicável ape- 
nas a alguns computadores: é a entrada 
direta dos códigos de controle por inter- 
médio do teclado. A tecla rotulada 
CONTROL (ou ainda CTRL), existente 
em muitos micros, deve ser pressionada 
em combinação com outras teclas, pa- 
ra introduzir o código de controle nu- 
ma linha de comando ou de programa, 

A função CHRS (abreviatura de cha- 
racter) permite converter um código nu- 
mérico inteiro, situado entre O e 255, ao 
seu caractere correspondente. Por exem- 
plo, PRINT CHRS(65) escreverá na te- 
la a letra A (maiúscula). 

A função CHRS funciona também 
com os caracteres de controle. Dessa 


forma, se acionarmos um comando 
PRINT associado a um ou mais carac- 
teres de controle, poderemos realizar 
uma série de tarefas básicas (até mesmo 
algumas que normalmente podem não 
ser acessíveis por intermédio de coman- 
dos BASIC). A seguir, damos alguns 
exemplos para o TRS-80 (os outros 
computadores serão abordados na con- 
tinuação deste capítulo). 


Você já conhece a instrução CLS, 
que serve para limpar a tela e retornar 
O cursor à posição superior esquerda do 
vídeo. Não seria interessante se pudés- 
semos apagar a tela apenas de um de- 
terminado ponto para baixo ou até o fi- 
nal de uma linha? Efeitos desse tipo são 
facilmente obtidos por meio da combi- 
nação do comando PRINT CHRS(n) 
com os seguintes códigos: 

8 - recua e apaga o último caracte- 
re na tela; 

|O - avança o cursor para o começo 


E “ a L = ] nem 
| | | 
| 
| 








Códigos de controle podem ser usados 
no lugar de muitos comandos em 
BASIC. Entrados diretamente por meio 
do teclado em certos micros, 

eles proporcionam uma ação imediata. 


SA 
, “ERRER 





da linha seguinte; 

4 - liga o cursor; 

5 - desliga o cursor; 

3 - converte a tela para a largura de 
2 caracteres; 

28 - retorna o cursor à posição 0,0, 
sem apagar a tela; 

29 - move O cursor para O começo da 
linha; 

30 - apaga da posição do cursor até 
o final da linha; 

31 - apaga o espaço que vai da posi- 
ção do cursor até o final da tela. 


Uma sequência de caracteres de con- 
trole pode ser colocada também dentro 
de uma cadeia de caracteres, por meio 
da função STRINGS. Por exemplo: 
PRINT STRING5(5,10) provoca o 
avanço do cursor cinco linhas para bai- 
xo. Esse comando corresponde à ação 
de pressionar a tecla com a flecha para 
baixo cinco vezes seguidas, com a van- 
tagem de poder ser colocado dentro de 
um programa (corresponde a cinco co- 
mandos PRINT em branco). 











LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 








JIMananaNO PRÓXIMO NÚMERONEEHEENHII 


APLICAÇÕES 


Continue seu curso de datilografia com o computador, 
praticando agora com todo o alfabeto. 


PROGRAMAÇÃO DE JOGOS 


Aprenda a movimentar um herói em meio às ameaças de 
um mundo hostil cujos limites são os da imaginação. 


PROGRAMAÇÃO BASIC 


Como examinar a memória do computador. Os comandos 
PEEK e POKE. Cores do TRS-Color. 









ES 
AÇÃO DÊ COMPUTADOR 


. a a ç 
, di V Rm ai 
e o 
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c28 20,00 | 





